home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
misc1
/
ami301c.zip
/
QKCOLLG.SM$
/
QKCOLLG.SMM
Wrap
INI File
|
1993-05-15
|
24KB
|
1,822 lines
[ver]
4
[sty]
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
QMS-PS 810
[port]
LPT1:
[lang]
1
[desc]
Determine college savings schedule.
737497865
24
732570070
827
8
0
0
0
0
1
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[ParaNum]
1
[tag]
Body Text
2
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
Body Single
3
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Single
0
0
[tag]
Bullet
4
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*0>
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Bullet
0
0
[tag]
Bullet 1
5
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
288
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*5>
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Bullet 1
0
0
[tag]
Number List
6
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
360
360
360
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*:>.
360
1
1
0
16
0
0
[nfmt]
272
1
2
.
,
$
Number List
0
0
[tag]
Subhead
7
[fnt]
Times New Roman
240
0
49155
[algn]
1
1
0
0
0
[spc]
33
273
1
72
72
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
2
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Subhead
0
0
[tag]
Title
8
[fnt]
Arial
360
0
16385
[algn]
4
1
0
0
0
[spc]
33
446
1
144
72
1
100
[brk]
16
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
1
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Title
0
0
[tag]
Header
9
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Header
0
0
[tag]
Footer
11
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Footer
0
0
[lay]
Standard
513
[rght]
15840
12240
1
360
1440
1
1440
360
0
1
0
1
0
2
1
360
11880
13
1
720
1
1440
1
2160
1
2880
1
3600
1
4320
1
5040
1
5760
1
6480
1
7200
1
7920
1
8640
1
9690
[hrght]
[lyfrm]
1
11200
0
0
12240
1440
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1440
12240
1
1440
72
1
792
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
>
[frght]
[lyfrm]
1
13248
0
14400
12240
15840
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
15840
12240
1
1440
792
1
14472
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
>
[elay]
[l1]
0
[edoc]
@Outline2@<:#284,11520>
@Outline2@<:#284,11520>Define NumDec 2
<:#284,11520>Define GetPrefix() GetGlobalVar$("Prefix")
<:#284,11520>Define GetSuffix() GetGlobalVar$("Suffix")
<:#284,11520>Define Formula "1/@Fv(1,{Interest}/12,{NumberYears}*12)*{Tuition}"
<:#284,11520>
<:#284,11520>
<:#284,11520>
<:#284,11520>CollegeAge 17
<:#284,11520>
<:#284,11520>
<:#284,11520>Declare FontDlg(Action, Hdlg, id)
<:#284,11520>Declare CellEngine(action,cFormula)
<:#284,11520>Declare GetMarkValue(Bookmarkname)
<:#284,11520>Declare StrPath(Filename)
<:#284,11520>Declare GetFormats(Action)
<:#284,11520>
<:#284,11520>
<:#568,11520>Define Descript "Enter the following information to calculate how much you will need to save per month to send your child to college."
<:#284,11520>
@Subhead@<:#284,11520>Function Main(Principal, Interest, Term)
<:#284,11520>DefStr hInstance;
<:#284,11520>Mac = GetRunningMacroFile$()
<:#284,11520>MacPath = StrPath(Mac)
<:#284,11520>FontDlg(1,0,0)
CellEngine(1,0) ' start the cell engine
<:#284,11520>GetFormats(1) ' International function
<:#284,11520>
<:#284,11520>SetDlgCallBack(0,"{Mac}!InitDlg")
<:#284,11520>FillEdit(1001, Descript)
<:#284,11520>Bitmap = "{Macpath}qkCollg.bmt"
<:#284,11520>FillEdit(1003,Bitmap)
<+A><:#284,11520>
<:#284,11520>SetDlgCallBack(8000,"{Mac}!DataChange")
<:#284,11520>SetDlgCallBack(8001,"{Mac}!DataChange")
<:#284,11520>SetDlgCallBack(8002,"{Mac}!DataChange")
<:#284,11520>SetDlgCallBack(21,"{Mac}!DataChange")
@Outline3@<:#284,11520>DlgKeyInterrupt(112, "{mac}!DisplayHelp")
@Outline3@<:#284,11520>
<:#284,11520>
<:#284,11520>Box = DialogBox(".","College")
<:#284,11520>If Box = 3
' closed with the copy button. note the 8011 is a text field
Answer = GetDialogField$(8011)
<:#284,11520> ClipBoardWrite(Answer, 1)
<:#284,11520>Endif
<:#284,11520>FontDlg(4,0,0)
<:#284,11520>CellEngine(0,0)
<:#284,11520>GetFormats(0)
<:#284,11520>End function
<:#284,11520>
<:#284,11520>
@Subhead@<:#284,11520>Function DataChange(Hdlg, id, value)
<:#284,11520>IgnoreKeyBoard(2)
<:#284,11520>DefStr Allowance;
<:#284,11520>NumberYears = GetDlgItemText(hDlg, 8000) * 1
<:#284,11520>Interest = GetDlgItemText(hDlg, 8001) /100
<:#284,11520>Tuition = GetDlgItemText(Hdlg, 8002)* 4
<:#284,11520>TotalTuition = FormatNum$(GetPrefix(), GetSuffix(), NumDec, Tuition )
<:#284,11520>Answer = CellEngine(3,Formula )
<:#284,11520>If IsNumeric(Answer)
<:#284,11520> Total = FormatNum$(GetPrefix(),GetSuffix(),NumDec,Answer)
<:#284,11520>Else
<:#284,11520> Total = Answer
<:#284,11520>Endif
<:#284,11520>SetDlgItemText(hDlg, 8010, TotalTuition)
<:#284,11520>SetDlgItemText(hDlg, 8011, Total)
<:#284,11520>
<:#284,11520>End Function
@Subhead@<:#284,11520>
@Subhead@<:#284,11520>Function InitDlg(hDlg, id, value)
<:#284,11520>' use the fontdlg function to display the following control with a small font
<:#284,11520>IgnoreKeyBoard(2)
<:#284,11520>HourGlass(on)
<:#284,11520>FontDlg(3,Hdlg, 1000)
<:#284,11520>FontDlg(3, Hdlg, 1001)
<:#284,11520>FontDlg(3, Hdlg, 1004)
<:#284,11520>FontDlg(3, Hdlg, 1005)
<:#284,11520>FontDlg(3, Hdlg, 1006)
<:#284,11520>FontDlg(3, Hdlg, 8000)
<:#284,11520>FontDlg(3, Hdlg, 8001)
<:#284,11520>FontDlg(3, Hdlg, 8002)
<:#284,11520>FontDlg(3, Hdlg, 21)
<:#284,11520>FontDlg(3, Hdlg, 1007)
<:#284,11520>FontDlg(3, Hdlg, 1008)
<:#284,11520>FontDlg(3, Hdlg, 8010)
<:#284,11520>FontDlg(3, Hdlg, 8011)
<:#284,11520>HourGlass(off)
<:#284,11520>
<:#284,11520>End Function
<:#284,11520>
@Subhead@<:#284,11520>function DisplayHelp()
@Outline2@<:#284,11520>' two defines needed for help. The help name and panel number are defined above
@Outline2@<:#284,11520>define FindWindowa() DllCall("user,FindWindow,HCC", %1, %2)
@Outline2@<:#284,11520>define WinHelpa(hWnd, file, cmd, ptr) DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
@Outline2@<:#284,11520>prohWnd = FindWindowa("AmiProWndA", 0)
@Outline2@<:#284,11520>helpfile = strcat$(GetAmiDirectory$(), "HelpPack.hlp")
@Outline2@<:#284,11520>PanelNum= 30
@Outline2@<:#284,11520>WinHelpa(prohWnd, helpfile, 0x0001, Panelnum)
@Outline2@<:#284,11520>end function
@Subhead@<:#284,11520>
<:#284,11520>
<:#284,11520>
<:#284,11520>
<:#284,11520>
<:#284,11520>
@Subhead@<:#284,11520>Function GetFormats(Action)
<:#284,11520>iCurrency = GetProfileString$("Intl","iCurrency","Win.ini")
<:#284,11520>currency = GetProfileString$("Intl","sCurrency","Win.ini")
<:#284,11520>AllocGlobalVar("Prefix",1)
<:#284,11520>AllocGlobalVar("Suffix",1)
<:#284,11520>
<:#284,11520>Switch Action
<:#284,11520> Case 1 ' turn this on
<:#284,11520> Switch iCurrency
<:#284,11520> Case 0
<:#284,11520> Prefix = Currency
<:#284,11520> Suffix = ""
<:#284,11520> Case 1
<:#284,11520> Prefix = ""
<:#284,11520> Suffix = Currency
<:#284,11520> Case 2
<:#284,11520> Prefix = StrCat$(Currency," ")
<:#284,11520> Suffix = ""
<:#284,11520> Case 3
<:#284,11520> Prefix = ""
<:#284,11520> Suffix = StrCat$(" ",Currency)
<:#284,11520> endSwitch
<:#284,11520> SetGlobalVar("Suffix",Suffix)
<:#284,11520> SetGlobalVar("Prefix",Prefix)
<:#284,11520>
<:#284,11520> Case 0 ' free globals
<:#284,11520> FreeGlobalVar("Suffix")
<:#284,11520> FreeGlobalVar("Prefix")
<:#284,11520>
<:#284,11520>EndSwitch
<:#284,11520>End Function
@Subhead@<:#284,11520>
<:#284,11520>
<:#284,11520>
<:#284,11520>
<:#284,11520>function strpath(filename)
<:#284,11520>defstr char;
<:#284,11520>Length = len(FileName)
<:#284,11520>WHILE "\" != Assign(&Char, MID$(FileName, Length, 1))
<:#284,11520> Length = Length - 1
<:#284,11520>WEND
<:#284,11520>InFileName = Right$(FileName, (len(FileName) - Length))
<:#284,11520>InDir = Left$(FileName, Length - 1)
<:#284,11520>if right$(indir, 1) <<<;> "\"
<:#284,11520> indir = strcat$(indir, "\")
<:#284,11520>endif
<:#284,11520>return indir
<:#284,11520>end function
<:#284,11520>
<:#284,11520>
<:#284,11520>
<:p<* >>
@Subhead@<:#284,11520>Function CellEngine(Action, cFormula)
<:#284,11520>'Available Actions
<:#284,11520>' 1 Start the engine and allocate globalvar
<:#284,11520>' 2 Return the handle to the instance of the sheet
<:#284,11520>' 3 Evaluate the formula which is the second param
<:#284,11520>' 0 Shut everything down
<:#284,11520>' Default Expect a formula and return an answer
<:#284,11520>
<:#284,11520>' these defines may be useful at the beginning of your macro
<:#284,11520>Define StartEngine 1
<:#284,11520>Define GetInstance 2
<:#284,11520>Define CloseEngine 0
<:#284,11520>
<:#284,11520>Define CECREATEINSTANCE(LPHANDLE) DllCall("LTSCE01.DLL,CECREATEINSTANCE,HO",%1)
<:#284,11520>Define CEDESTROYINSTANCE(HANDLE) DllCall("LTSCE01.DLL,CEDESTROYINSTANCE,HH",%1)
<:#568,11520>Define CECALCNOW(HINSTANCE, lpFormula, lpOutPut) DllCall("LTSCE01.DLL,CECALCNOW,HHCC",%1,%2,%3)
<:#284,11520>
<:#284,11520>DefStr hInstance, Answer, Var;
<:#284,11520>Mac = GetRunningMacroFile$()
<:#284,11520>GlobalInstance = StrCat$(Mac,"hIstance")
<:#284,11520>
<:#284,11520>Switch Action
<:#284,11520> Case 1
<:#284,11520> ' start the engine
<:#284,11520> LibId = DLLLoadLib("LTSCE01.DLL","CECreateInstance","HO")
<:#284,11520> If LibId = 0
<:#284,11520> Message("LTSCE01.DLL not found. Copy the dll to your windows directory")
<:#284,11520> Return -1;
<:#284,11520> Endif
<:#284,11520> RetVal = CECREATEINSTANCE(&hInstance)
<:#284,11520> AllocGlobalVar("{GlobalInstance}",1)
<:#284,11520> AllocGlobalVar("{Mac}LibId",1)
<:#284,11520> SetGlobalVar("{Mac}Libid",LibId)
<:#284,11520> SetGlobalVar("{GlobalInstance}",hInstance)
<:#284,11520> Return hInstance;
<:#284,11520> Break;
<:#284,11520>
<:#284,11520> Case 2
<:#284,11520> ' return the handle to the instance of the sheet
<:#284,11520> AllocGlobalVar("{GlobalInstance}",1)
<:#284,11520> hInstance = GetGlobalVar$("{GlobalInstance}")
<:#284,11520> Return hInstance;
<:#284,11520> Break;
<:#284,11520>
<:#284,11520> Case 3
<:#284,11520> ' Calculate the formula and return the answer
<:#284,11520> AllocGlobalVar("{GlobalInstance}",1)
<:#284,11520> hInstance = GetGlobalVar$("{GlobalInstance}")
<:#284,11520> CECalcNow(hInstance,"{cFormula}",&Answer)
<:#284,11520> Return Answer;
<:#284,11520> Break;
<:#284,11520>
<:#284,11520>
<:#284,11520>
<:#284,11520> Case 0
<:#284,11520> ' destroy the instance of the sheet and free the global var and libid
<:#284,11520> AllocGlobalVar("{GlobalInstance}",1)
<:#284,11520> AllocGlobalVar("{Mac}LibId",1)
<:#284,11520> hInstance = GetGlobalVar$("{GlobalInstance}")
<:#284,11520> LibId = GetGlobalVar$("{Mac}LibId")
<:#284,11520> If hInstance
<:#284,11520> CEDestroyInstance(hInstance)
<:#284,11520> DllFreeLib(Libid)
<:#284,11520> Endif
<:#284,11520> FreeGlobalVar("{GlobalInstance}")
<:#284,11520> FreeGlobalVar("{Mac}LibId")
<:#284,11520> Break;
<:#284,11520>
<:#284,11520> Default
<:#284,11520>EndSwitch
<:#284,11520>End Function
@Subhead@<:#284,11520>
<:#284,11520>
<:#284,11520>
<:#284,11520>
<:#284,11520>
@Subhead@<:#284,11520>Function FontDlg(Action, Hdlg, id)
<:#284,11520>' 1 Create a font and allocvar
<:#284,11520>' 2 Return the handle of the create font
<:#284,11520>' 3 Set the id specified to the font
<:#284,11520>' 4 Freeglobalvar and delete created object
<:#284,11520>
@Outline2@<:#568,11520>define CreateFontDLG() DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
@Outline2@<:#284,11520>define DeleteObjectDLG(handle) DllCall("gdi,DeleteObject,HH", %1)
@Outline2@<:#284,11520>define SendMessageDLG(hwnd, msg, wpara, lparm) DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
@Outline2@<:#284,11520>
@Outline2@<:#284,11520>
<:#284,11520>Switch Action
<:#284,11520> Case 1 ' Create the font and store it
@Outline2@<:#284,11520> Font = CreateFontDLG(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
<:#284,11520> AllocGlobalVar("FontHandle",1)
<:#284,11520> If Font
<:#284,11520> SetGlobalVar("FontHandle",Font)
<:#284,11520> Return Font
<:#284,11520> Else
<:#284,11520> Return 0; ' no font
<:#284,11520> Endif
<:#284,11520> Break;
<:#284,11520> Case 2 ' Return the handle to the font
<:#284,11520> Handle = GetGlobalVar$("FontHandle")
<:#284,11520> If Handle
<:#284,11520> Return Handle
<:#284,11520> Else
<:#284,11520> Return 0
<:#284,11520> Endif
<:#284,11520>
<:#284,11520> Case 3 ' Set the id to the font
<:#284,11520> Handle = GetGlobalVar$("FontHandle")
<:#284,11520> If Handle
<:#284,11520> IdControl = GetDlgITem(Hdlg, id)
<:#284,11520> SendMessageDlg(idControl, 0x30, Handle, 0)
<:#284,11520> Return 1
<:#284,11520> Else
<:#284,11520> Return 0
<:#284,11520> Endif
<:#284,11520> Break;
<:#284,11520>
<:#284,11520> Case 4 ' Delete the font and clear the var
<:#284,11520> Handle = GetGlobalVar$("FontHandle")
<:#284,11520> If Handle
<:#284,11520> DeleteObjectDLG(Handle)
<:#284,11520> Stat = 1
<:#284,11520> Else
<:#284,11520> Stat = 0
<:#284,11520> Endif
<:#284,11520> FreeGlobalVar("FontHandle")
<:#284,11520> Return Stat
<:#284,11520> Default
<:#284,11520> Message("Fontdlg received an invalid parameter {Action}")
<:#284,11520>EndSwitch
<:#284,11520>
<:#284,11520>End Function
@Subhead@<:#284,11520>
@Subhead@<:#284,11520>
<:#284,11520>
@Subhead@<:#284,11520>Function GetMarkValue(Name)
<:#284,11520>' This retrieves a value from the bookmark name and returns the value
<:#284,11520>' If the bookmark does not exit, a "" is returned
<:#284,11520>If Name = ""
<:#284,11520> Return Name
<:#284,11520>Endif
<:#284,11520>Exist = EvalField("If Defined {Name} {Name} Else 0")
<:#284,11520>If Exist
<:#284,11520> Value= EvalField("{Name}")
<:#284,11520> If -1 != Strchr(1,Value, "<;>")
<:#284,11520> If -1 = Assign(&Value, StrField$(Value, 2, "<;>"))
<:#284,11520> Endif
<:#284,11520> Endif
<:#284,11520>Else
<:#284,11520> Value = ""
<:#284,11520>Endif
<:#284,11520>Return Value;
<:#284,11520>End Function
<:#284,11520>
<:#284,11520>
<:#284,11520>
<:#284,11520>
<:#284,11520>DIALOG College
<:#284,11520>-2134376448 15 71 30 185 99 "" "AmiDialog" "The College Fund"
<:#284,11520>FONT 8 "Helv"
<:#284,11520>89 28 16 12 8000 1350631424 "edit" "" 0
<:#284,11520>89 43 25 12 8002 1350631424 "edit" "" 0
<:#284,11520>89 57 16 12 8001 1350631424 "edit" "" 0
<:#284,11520>140 3 40 14 1 1342373889 "button" "Done" 0
<:#284,11520>82 76 40 8 8010 1342177282 "static" "" 0
4 32 84 8 1004 1342177280 "static" "Years until child enters college:" 0
<:#284,11520>4 46 84 8 1005 1342177280 "static" "Estimated college tuition/year:" 0
<:#284,11520>4 60 81 8 1006 1342177280 "static" "Savings account interest rate:" 0
<:#284,11520>5 2 131 24 1001 1342177280 "static" "" 0
<:#284,11520>106 59 6 10 1000 1342177280 "static" "%" 0
<:#284,11520>114 35 58 46 1003 1342177290 "static" "filename.bmp" 0
<:#284,11520>82 86 40 8 8011 1342177282 "static" "" 0
<:#284,11520>4 75 62 10 1007 1342177280 "static" "Total tuition (4yrs):" 0
<:#284,11520>4 86 85 10 1008 1342177280 "static" "Required savings/month:" 0
<:#284,11520>140 19 40 14 3 1342373888 "button" "Copy" 0
<:#284,11520>END DIALOG
>
[Embedded]
00018367
>
[macsum] 10
Main 0 3 7 20
DataChange 598 3 8 52
InitDlg 1042 3 1 70
DisplayHelp 1415 0 4 91
GetFormats 1600 1 5 106
strpath 2169 1 5 141
CellEngine 2490 2 8 158
FontDlg 3437 3 5 234
GetMarkValue 4283 1 3 293
College 4588 0 -1 315
[macse]
14 Main
0 802
13
8 5
16 StrPath "{5}"
13
8 6
16 FontDlg 1 0 0
16 CellEngine 1 0
16 GetFormats 1
0 41 0 "{5}!InitDlg"
0 31 1001 "Enter the following information to calculate how much you will need to save per month to send your child to college."
7 "{6}qkCollg.bmt"
8 7
0 31 1003 "{7}"
0 41 8000 "{5}!DataChange"
0 41 8001 "{5}!DataChange"
0 41 8002 "{5}!DataChange"
0 41 21 "{5}!DataChange"
0 47 112 "{5}!DisplayHelp"
0 26 "." "College"
13
8 8
6 8
5 3
18 0
11 00000532
0 27 8011
13
8 9
0 1038 "{9}" 1
16 FontDlg 4 0 0
16 CellEngine 0 0
16 GetFormats 0
6 3
15
9
14 DataChange
0 32 2
0 42 "{0}" 8000
13
5 1
4 0
8 5
0 42 "{0}" 8001
13
5 100
4 1
8 6
0 42 "{0}" 8002
13
5 4
4 0
8 7
0 265 "Prefix"
13
0 265 "Suffix"
13
0 19 [X] [X] 2 "{7}"
13
8 8
16 CellEngine 3 "1/@Fv(1,{6}/12,{5}*12)*{7}"
13
8 9
0 277 "{9}"
13
11 00000374
0 265 "Prefix"
13
0 265 "Suffix"
13
0 19 [X] [X] 2 "{9}"
13
8 10
10 00000385
6 9
8 10
0 43 "{0}" 8010 "{8}"
0 43 "{0}" 8011 "{10}"
6 3
15
9
14 InitDlg
0 32 2
0 296 1
16 FontDlg 3 "{0}" 1000
16 FontDlg 3 "{0}" 1001
16 FontDlg 3 "{0}" 1004
16 FontDlg 3 "{0}" 1005
16 FontDlg 3 "{0}" 1006
16 FontDlg 3 "{0}" 8000
16 FontDlg 3 "{0}" 8001
16 FontDlg 3 "{0}" 8002
16 FontDlg 3 "{0}" 21
16 FontDlg 3 "{0}" 1007
16 FontDlg 3 "{0}" 1008
16 FontDlg 3 "{0}" 8010
16 FontDlg 3 "{0}" 8011
0 296 0
6 3
15
9
14 DisplayHelp
0 284 "user,FindWindow,HCC" "AmiProWndA" 0
13
8 1
0 798
13
0 16 [X] "HelpPack.hlp"
13
8 2
5 30
8 3
0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 "{3}"
6 0
15
9
14 GetFormats
0 286 "Intl" "iCurrency" "Win.ini"
13
8 2
0 286 "Intl" "sCurrency" "Win.ini"
13
8 3
0 271 "Prefix" 1
0 271 "Suffix" 1
5 1
6 0
18 0
11 00000496
5 0
6 2
18 0
11 00000233
6 3
8 4
7 ""
8 5
10 00000439
5 1
6 2
18 0
11 00000296
7 ""
8 4
6 3
8 5
10 00000439
5 2
6 2
18 0
11 00000374
0 16 "{3}" " "
13
8 4
7 ""
8 5
10 00000439
5 3
6 2
18 0
11 00000439
7 ""
8 4
0 16 " " "{3}"
13
8 5
0 264 "Suffix" "{5}"
0 264 "Prefix" "{4}"
10 00000557
5 0
6 0
18 0
11 00000557
0 266 "Suffix"
0 266 "Prefix"
6 1
15
9
14 strpath
0 14 "{0}"
13
8 3
7 "\"
0 15 "{0}" "{3}" 1
13
0 805 &2 [X]
13
18 1
11 00000134
6 3
5 1
3 1
8 3
10 00000033
0 14 "{0}"
13
6 3
3 1
0 807 "{0}" [X]
13
8 4
6 3
5 1
3 1
0 806 "{0}" [X]
13
8 5
0 807 "{5}" 1
13
7 "\"
18 1
11 00000297
0 16 "{5}" "\"
13
8 5
6 5
15
9
6 1
15
9
14 CellEngine
0 802
13
8 6
0 16 "{6}" "hIstance"
13
8 7
5 1
6 0
18 0
11 00000427
0 297 "LTSCE01.DLL" "CECreateInstance" "HO"
13
8 8
6 8
5 0
18 0
11 00000258
0 3 "LTSCE01.DLL not found. Copy the dll to your windows directory"
5 -1
15
9
0 284 "LTSCE01.DLL,CECREATEINSTANCE,HO" &3
13
8 9
0 271 "{7}" 1
0 271 "{6}LibId" 1
0 264 "{6}Libid" "{8}"
0 264 "{7}" "{3}"
6 3
15
9
10 00000935
10 00000935
5 2
6 0
18 0
11 00000531
0 271 "{7}" 1
0 265 "{7}"
13
8 3
6 3
15
9
10 00000935
10 00000935
5 3
6 0
18 0
11 00000686
0 271 "{7}" 1
0 265 "{7}"
13
8 3
0 284 "LTSCE01.DLL,CECALCNOW,HHCC" "{3}" "{1}" &4
6 4
15
9
10 00000935
10 00000935
5 0
6 0
18 0
11 00000935
0 271 "{7}" 1
0 271 "{6}LibId" 1
0 265 "{7}"
13
8 3
0 265 "{6}LibId"
13
8 8
6 3
11 00000878
0 284 "LTSCE01.DLL,CEDESTROYINSTANCE,HH" "{3}"
0 298 "{8}"
0 266 "{7}"
0 266 "{6}LibId"
10 00000935
10 00000935
6 2
15
9
14 FontDlg
5 1
6 0
18 0
11 00000255
0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
13
8 4
0 271 "FontHandle" 1
6 4
11 00000217
0 264 "FontHandle" "{4}"
6 4
15
9
10 00000229
5 0
15
9
10 00000834
10 00000834
5 2
6 0
18 0
11 00000381
0 265 "FontHandle"
13
8 5
6 5
11 00000356
6 5
15
9
10 00000368
5 0
15
9
10 00000834
5 3
6 0
18 0
11 00000596
0 265 "FontHandle"
13
8 5
6 5
11 00000558
0 44 "{1}" "{2}"
13
8 6
0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{5}" 0
5 1
15
9
10 00000570
5 0
15
9
10 00000834
10 00000834
5 4
6 0
18 0
11 00000785
0 265 "FontHandle"
13
8 5
6 5
11 00000730
0 284 "gdi,DeleteObject,HH" "{5}"
5 1
8 7
10 00000740
5 0
8 7
0 266 "FontHandle"
6 7
15
9
10 00000834
0 3 "Fontdlg received an invalid parameter {0}"
6 3
15
9
14 GetMarkValue
6 0
7 ""
18 0
11 00000059
6 0
15
9
0 1289 "If Defined {0} {0} Else 0"
13
8 2
6 2
11 00000270
0 1289 "{0}"
13
8 3
5 -1
0 13 1 "{3}" ">"
13
18 1
11 00000257
5 -1
0 20 "{3}" 2 ">"
13
0 805 &3 [X]
13
18 0
11 00000257
10 00000281
7 ""
8 3
6 3
15
9
6 1
15
9
DIALOG College
-2134376448 15 71 30 185 99 "" "AmiDialog" "The College Fund"
FONT 8 "Helv"
89 28 16 12 8000 1350631424 "edit" "" 0
89 43 25 12 8002 1350631424 "edit" "" 0
89 57 16 12 8001 1350631424 "edit" "" 0
140 3 40 14 1 1342373889 "button" "Done" 0
82 76 40 8 8010 1342177282 "static" "" 0
4 32 84 8 1004 1342177280 "static" "Years until child enters college:" 0
4 46 84 8 1005 1342177280 "static" "Estimated college tuition/year:" 0
4 60 81 8 1006 1342177280 "static" "Savings account interest rate:" 0
5 2 131 24 1001 1342177280 "static" "" 0
106 59 6 10 1000 1342177280 "static" "%" 0
114 35 58 46 1003 1342177290 "static" "filename.bmp" 0
82 86 40 8 8011 1342177282 "static" "" 0
4 75 62 10 1007 1342177280 "static" "Total tuition (4yrs):" 0
4 86 85 10 1008 1342177280 "static" "Required savings/month:" 0
140 19 40 14 3 1342373888 "button" "Copy" 0
00018392